home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 17 / AMIGAplus Sonderheft 17 (1999)(ICP)(DE)[!].iso / Rexx / Examples / Xtruder_CheckFiles.rexx next >
OS/2 REXX Batch file  |  1997-07-21  |  462b  |  28 lines
  1. /*
  2. ** 'CheckFiles' example
  3. */
  4.  
  5. Options Results
  6.  
  7. Address XTRUDER
  8.  
  9. CheckFiles 'C:Dir' 'C:List'
  10.  
  11. IF RC < 0 THEN
  12.    Say 'Error 'RC' occured!'
  13. ELSE IF RC = 0 THEN
  14.    Say 'No viruses found in checked files'
  15. ELSE IF RC > 0 THEN
  16.    DO
  17.    Say 'Number of viruses found: ' RC
  18.    Say ''
  19.      DO x=1 to RC
  20.        GetVirusName x
  21.        Say 'Virus name:     ' result''
  22.  
  23.        GetVirusFileName x
  24.        Say 'Virus file name:' result''
  25.        Say ''
  26.      END
  27.     END
  28.